home *** CD-ROM | disk | FTP | other *** search
/ Avalon 6 / Avalon_06_1995_Avalon_Side_A.d64 / putt putt golf (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  434 lines
  1. 10 rem ********************
  2. 11 rem ***              ***
  3. 12 rem ** putt putt golf **
  4. 13 rem ***              ***
  5. 14 rem ********************
  6. 15 :
  7. 16 :
  8. 18 fortr=54273to54273+20:poketr,0:next:poke54296,15:gosub25000
  9. 20 gosub1000:rem instructions
  10. 30 print"[147]":poke53280,0:poke53281,0:gosub18110:gosub2000:rem setup
  11. 40 poke53280,7:poke53281,1:gosub3000:rem play
  12. 50 goto4000:rem !end!
  13. 60 end
  14. 70 :
  15. 1000 :
  16. 1001 :rem *** insts
  17. 1002 poke53281,1
  18. 1003 poke53280,1:print"[147] * *  p u t t   p u t t   g o l f [146] * *
  19. 1010 [153]"poke"
  20. 1025 :
  21. 1030 [153]"welcome to the stuart country club!     this beautiful nine-hole ";
  22. 1031 [153]"miniature golf course is open and waiting for you!":[141]25160
  23. 1035 :
  24. 1040 [153]"you should know the idiosyncrasies of   the course before you play."
  25. 1041 [153]
  26. 1045 [153]"to putt the ball, you have to input     which direction you want to";
  27. 1046 [153]" aim it."
  28. 1047 [153]"there are 8 directions, as shown below."
  29. 1048 [153]"your ball is always at the *star*"
  30. 1050 [153]:[153][163]17)"2 1 8":[153][163]17)"3 * 7":[153][163]17)"4 5 6"
  31. 1060 [141]25160:[153]:[141]17200
  32. 1070 [153]"load"
  33. 1075 [153]" * *  m i n i a t u r e   g o l f wait * *
  34. 1080 print"[151]then you must input how hard to hit the ball.  the speed should ";
  35. 1081 print "be some number  between 0 and 5."
  36. 1082 print"try a few speeds and see what happens!"
  37. 1090 print"it will take a few tries before you get the feel of how hard";
  38. 1095 print" to putt the ball!":gosub25160
  39. 1100 print"[151]also, there are four types of hazards onthe course.  you should ";
  40. 1105 print"be aware of whatthey are and what affect they have on   you ";
  41. 1106 print"and your ball...":gosub25160
  42. 1110 print"":gosub17200
  43. 1120 print"[147]"
  44. 1125 printtab(9)"- - h a z a r d s - -[151]"
  45. 1126 print:print
  46. 1130 print"blocks:[146] these are like walls.  you must putt around them."
  47. 1135 print
  48. 1140 print"yellow traps[146] represent sand.  your ball cannot penetrate through ";
  49. 1141 print"a sand trap.   the penalty for landing in the sand is  one stroke."
  50. 1145 print
  51. 1150 print"water:[146] like sand,these blue hazards will slow and stop your ball.";
  52. 1151 print"  the  penalty for landing in the water is one stroke."
  53. 1155 print
  54. 1160 print"uneven surfaces:[146] these red hazards causethe ball to roll in ";
  55. 1165 print"a direction which isunpredictable.  there is no  penalty ";
  56. 1166 print"forhitting this hazard."
  57. 1170 print"":gosub17200
  58. 1180 print"[147][152]"
  59. 1185 print" * *  p u t t   p u t t   g o l f [146] * *
  60. 1186 [153]:[153]
  61. 1190 [153]"you are trying to sink the ball in as   few tries as possible.  ";
  62. 1191 [153]"the hole is the black square.":[141]25160
  63. 1195 [153]
  64. 1200 [153]"if you hit the ball too hard, it will   jump over the hole and ";
  65. 1205 [153]"continue rolling.it may also change direction, so be sureto hit ";
  66. 1206 [153]"the ball just hard enough!":[141]25160
  67. 1210 [153]"":[141]17200
  68. 1990 [142]
  69. 2000 :
  70. 2001 :[143] *** setup
  71. 2002 :
  72. 2010 [134]ha(9,5):[129]i[178]1[164]9:[129]j[178]1[164]5:[135]ha(i,j):[130]:[130]
  73. 2011 [131] 0,0,0,0,2
  74. 2012 [131] 1,0,0,0,3
  75. 2013 [131] 0,1,0,0,3
  76. 2014 [131] 1,1,0,0,3
  77. 2015 [131] 0,0,0,1,3
  78. 2016 [131] 0,0,1,1,3
  79. 2017 [131] 1,0,1,0,3
  80. 2018 [131] 0,1,1,0,4
  81. 2019 [131] 0,0,1,1,3
  82. 2020 [134]di(8,2):[129]i[178]1[164]8:[135]di(i,1),di(i,2):[130]
  83. 2025 [131] 0,-1,-1,-1,-1,0,-1,1,0,1,1,1,1,0,1,-1
  84. 2030 plt[178]49152:[129]i[178]0[164]24:[135]c:[151]plt[170]i,c:[130]i
  85. 2031 [131]32,16,192,132
  86. 2032 [131]253,32,16,192
  87. 2033 [131]152,170,164,253
  88. 2034 [131]24,76,240,255
  89. 2035 [131]32,253,174,32
  90. 2036 [131]158,173,76,170,177
  91. 2040 [134]v(8):[129]i[178]1[164]8:[135]v(i):[130]:[131]-40,-41,-1,39,40,41,1,-39
  92. 2050 :
  93. 2055 [150] [165]co(x)[178][194](55296[170]bx[170]40[172]by[170]x)[175]15
  94. 2060 [150] [165]sc(x)[178][194](1024[170]bx[170]40[172]by[170]x)
  95. 2090 [142]
  96. 2100 [143] *** hole 1
  97. 2105 [141]2050
  98. 2106 [153]""
  99. 2110 [153][163]9)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  100. 2112 [129]i[178]1[164]15
  101. 2115 [153][163]9)"get                            waitstopget"
  102. 2120 [130]
  103. 2125 [153][163]9)"stopcosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
  104. 2130 [153]""[163]18)" "
  105. 2135 by[178]16:bx[178]11[170][181](17[172][187](0)):[158]plt,bx,by:[153]"(NULL)";
  106. 2140 [142]
  107. 2200 [143] *** hole 2
  108. 2205 [141]2050
  109. 2206 [153]""
  110. 2210 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  111. 2212 [129]i[178]1[164]5
  112. 2215 [153][163]7)"get                              waitstopget"
  113. 2220 [130]
  114. 2221 [153][163]7)"get                              waitstopget"
  115. 2222 [153][163]7)"get                              waitstopget"
  116. 2223 [153][163]7)"get                              waitstopget"
  117. 2224 [153][163]7)"get                              waitstopget"
  118. 2225 [153][163]7)"get                              waitstopget"
  119. 2226 [129]i[178]1[164]6
  120. 2227 [153][163]7)"get                              waitstopget"
  121. 2230 [130]
  122. 2235 [153][163]7)"cosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew        newwaitlog"
  123. 2240 by[178]17:bx[178]9[170][181](15[172][187](0)):[158]plt,bx,by:[153]"(NULL)";
  124. 2245 [153]""[163]29)"stop "
  125. 2250 [142]
  126. 2300 [143] *** hole 3
  127. 2306 [153]""
  128. 2310 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  129. 2312 [129]i[178]1[164]5
  130. 2315 [153][163]7)"get                              waitstopget"
  131. 2320 [130]
  132. 2321 [153][163]7)"cos                              waitstopget"
  133. 2322 [153][163]7)"get                              waitstopget"
  134. 2323 [153][163]7)"get                  sys            waitstopget"
  135. 2324 [153][163]7)"get                 sys             waitstopget"
  136. 2325 [153][163]7)"get                 sys             waitstopget"
  137. 2326 [153][163]7)"get                 sys             waitstopget"
  138. 2335 [153][163]7)"get                              waitstopget"
  139. 2340 [129]i[178]1[164]4
  140. 2345 [153][163]7)"get                              waitstopget"
  141. 2350 [130]
  142. 2355 [153][163]7)"waitcosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
  143. 2360 [153]""[163]31)"stop "
  144. 2365 by[178]17:bx[178]9[170][181](15[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
  145. 2390 [142]
  146. 2400 [143] *** hole 4
  147. 2406 [153]""
  148. 2410 [153][163]6)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  149. 2412 [129]i[178]1[164]6
  150. 2415 [153][163]6)"get                              waitstopget"
  151. 2420 [130]
  152. 2421 [153][163]6)"get            stopnewnewnewnewnewnewnewnewnew         waitstopget"
  153. 2425 [129]i[178]1[164]4
  154. 2430 [153][163]6)"get            stopwaitget       get         waitstopget"
  155. 2435 [130]
  156. 2440 [153][163]6)"get            stopwaitget       cosnewnewnewnewnewnewnewnewnewwaitlog"
  157. 2445 [129]i[178]1[164]3
  158. 2450 [153][163]6)"get            stopwaitget"
  159. 2455 [130]
  160. 2460 [153][163]6)"cosnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
  161. 2465 [153]""[163]17)"sys       cmdcmdcmdcmdcmdcmd     cmdcmdcmdcmd "
  162. 2470 [153][163]24)" cmdcmdcmd   cmdcmdcmdcmdcmd      "
  163. 2475 [158]plt,32,10:[153]"stop "
  164. 2480 by[178]16:bx[178]8[170][181](10[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
  165. 2490 [142]
  166. 2500 [143] *** hole 5
  167. 2506 [153]""
  168. 2510 [153][163]9)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  169. 2512 [129]i[178]1[164]15
  170. 2515 [153][163]9)"get                           waitstopget"
  171. 2520 [130]
  172. 2525 [153][163]9)"stopcosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
  173. 2530 [158]plt,19,6:[153]"/lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp"
  174. 2535 [158]plt,22,4:[153]"stop "
  175. 2540 by[178]16:bx[178]11[170][181](23[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
  176. 2590 [142]
  177. 2600 [143] *** hole 6
  178. 2605 [141]2050
  179. 2606 [153]""
  180. 2610 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  181. 2612 [129]i[178]1[164]7
  182. 2615 [153][163]7)"get                              waitstopget"
  183. 2620 [130]
  184. 2625 [153][163]7)"get                    stopnewnewnewnewnewnewnewnewnewnewwaitlog"
  185. 2630 [129]i[178]1[164]7
  186. 2635 [153][163]7)"get                              waitstopget"
  187. 2640 [130]
  188. 2645 [153][163]7)"cosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
  189. 2650 [158]plt,27,4:[153]"orcmd cmd/"
  190. 2655 [158]plt,20,5:[153]"cmdcmdcmdcmdcmdcmd cmdcmdcmdcmdcmd    cmdcmdcmd    "
  191. 2660 [158]plt,30,5:[153]"stop "
  192. 2665 by[178]16:bx[178]9[170][181](15[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
  193. 2690 [142]
  194. 2700 [143] *** hole 7
  195. 2706 [153]""
  196. 2710 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  197. 2712 [129]i[178]1[164]4
  198. 2715 [153][163]7)"get                              waitstopget"
  199. 2720 [130]
  200. 2721 [153][163]7)"get         stop waitnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewrnd"
  201. 2725 [129]i[178]1[164]4
  202. 2727 [153][163]7)"get                              stopwaitget"
  203. 2730 [130]
  204. 2735 [153][163]7)"stop newnewnewnewnewnewnewnewnewnewnew                   stopwaitget"
  205. 2740 [129]i[178]1[164]5
  206. 2745 [153][163]7)"stopget                              stopwaitget"
  207. 2750 [130]
  208. 2755 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwait"
  209. 2760 [158]plt,9,7:[153]"    cmdcmdcmdcmd     cmdcmdcmdcmd      cmdcmdcmdcmdcmd        "
  210. 2765 [158]plt,27,7:[153]"         cmdcmdcmdcmdcmdcmd    cmdcmdcmdcmdcmdcmd        cmdcmdcmdcmdcmdcmdcmd       "
  211. 2770 [158]plt,13,4:[153]"stop "
  212. 2775 by[178]16:bx[178]25[170][181](13[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
  213. 2799 [142]
  214. 2800 [143] *** hole 8
  215. 2806 [153]""
  216. 2810 [153][163]6)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  217. 2812 [129]i[178]1[164]6
  218. 2815 [153][163]6)"get                              waitstopget"
  219. 2820 [130]
  220. 2821 [153][163]6)"get       stopnewnewnewnewnewnewnewnewnewnewnewnewnew          waitstopget"
  221. 2825 [129]i[178]1[164]4
  222. 2830 [153][163]6)"get       stopwaitget       get              waitstopget"
  223. 2835 [130]
  224. 2840 [153][163]6)"cosnewnewnewnewnewnewnewwaitlog       get              stopwaitget"
  225. 2845 [129]i[178]1[164]3
  226. 2850 [153][163]6)"get                              stopwaitget"
  227. 2855 [130]
  228. 2860 [153][163]6)"cosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
  229. 2865 [158]plt,28,2:[153]"        "
  230. 2866 [158]plt,29,3:[153]"       "
  231. 2867 [158]plt,30,4:[153]"      "
  232. 2868 [158]plt,31,5:[153]"     "
  233. 2869 [158]plt,32,6:[153]"    "
  234. 2870 [158]plt,33,7:[153]"   "
  235. 2875 [158]plt,13,3:[153]"sys   cmdcmdcmdcmd     cmdcmdcmdcmdcmd     cmdcmdcmdcmd   "
  236. 2880 [158]plt,13,10:[153]"stop "
  237. 2885 by[178]16:bx[178]27[170][181](10[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
  238. 2890 [142]
  239. 2900 [143] *** hole 9
  240. 2905 [141]2050
  241. 2906 [153]""
  242. 2910 [153][163]7)"stopnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  243. 2912 [129]i[178]1[164]9
  244. 2915 [153][163]7)"get                              waitstopget"
  245. 2920 [130]
  246. 2921 [153][163]7)"log            *                 waitstopget"
  247. 2925 [129]i[178]1[164]5
  248. 2927 [153][163]7)"get                              waitstopget"
  249. 2930 [130]
  250. 2935 [153][163]7)"cosnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitlog"
  251. 2940 [158]plt,19,2:[153]"                   "
  252. 2941 [158]plt,20,3:[153]"                  "
  253. 2942 [158]plt,21,4:[153]"                 "
  254. 2943 [158]plt,22,5:[153]"                "
  255. 2944 [158]plt,23,6:[153]"               "
  256. 2950 [158]plt,11,6:[153]"stop "
  257. 2955 [158]plt,14,5:[153]"^cmd(NULL)cmdexp"
  258. 2960 by[178]16:bx[178]21[170][181](15[172][187](0)):[158]plt,bx,by:[153]"(NULL)"
  259. 2990 [142]
  260. 3000 :
  261. 3001 :[143] *** play
  262. 3002 :
  263. 3010 [129]ho[178]1[164]9:bc$[178]""
  264. 3015 [153]"load";
  265. 3020 [145]ho[141]2100,2200,2300,2400,2500,2600,2700,2800,2900
  266. 3030 [153]"conthole number:"ho"par:"ha(ho,5)"score:"sc
  267. 3031 [153]:[153]"traps:":[139]ha(ho,1)[167][153]"water"
  268. 3032 [139]ha(h0,2)[167][153]"syssand"
  269. 3033 [139]ha(ho,3)[167][153]"uneven"
  270. 3034 [139]ha(ho,4)[167][153]"stopblocks"
  271. 3035 [153]:[153]"stop2 1 8":[153]"3 (NULL) 7":[153]"4 5 6"
  272. 3036 [158]plt,0,19:[129]i[178]1[164]5:[153]"       ":[130]
  273. 3037 d$[178]"":[158]plt,0,20:[153]"def direction?  (1-8) wait"
  274. 3038 [161]d$:[139]d$[178]""[167]3038
  275. 3039 dir[178][197](d$):[143]**ifdir<1ordir>8then3038
  276. 3040 [139]dir[177]0[175]dir[179]9[175]dir[178][181](dir)[167]3045
  277. 3041 [137]3036:[143]**print"direction is from 1 to 8 !":forpa=1to1500:next:goto3036
  278. 3045 [158]plt,0,19:[129]i[178]1[164]5:[153]"                                     ":[130]
  279. 3046 d$[178]"":[158]plt,0,20:[153]" speed? (from 0-5) waitstop"
  280. 3047 [161]d$:[139]d$[178]""[167]3047
  281. 3048 sp[178][197](d$):[139]sp[179]0[176]sp[177]5[167]3047
  282. 3050 [139]sp[178][177]0[175]sp[179][178]5[167]3055
  283. 3051 [143]****print"the speed is from 0 to 5 ...":forpa=1to1500:next:goto3045
  284. 3055 uf[178]0:[143] clear uneven flag
  285. 3056 tf[178]0:[143] clear trap flag
  286. 3060 [158]plt,0,20:[153]"                              "
  287. 3100 x2[178]bx[170]di(di,1):y2[178]by[170]di(di,2)
  288. 3110 d2[178]v(di):co[178][165]co(d2):[139]co[179][177]5[176][165]sc(d2)[179][177]160[167]3120
  289. 3115 [158]plt,bx,by:[153]bc$" ";:bx[178]x2:by[178]y2:[158]plt,bx,by:[153]"(NULL)";
  290. 3116 bc$[178]"":[137]3900
  291. 3120 [139]co[178]0[175][165]sc(d2)[179][177]160[167][141]18236:[137]3200:[143] hit a wall
  292. 3121 [139] co[178]6[167][141]18290:[137]3300:[143] water
  293. 3122 [139] co[178]7[167][141]18290:[137]3400:[143] sand
  294. 3123 [139] co[178]2[167][141]18185:[137]3500:[143] uneven
  295. 3124 [139] co[178]0[167][141]18488:[137]3600:[143] the hole
  296. 3125 [143] we hit a block
  297. 3200 [139]di[178]1[176]di[178]3[167]di[178]di[170]4:[137]3100
  298. 3201 [139]di[178]7[176]di[178]5[167]di[178]di[171]4:[137]3100
  299. 3210 [145]di[173]2[137]3220,3240,3260,3280
  300. 3220 [139][165]sc(d2[170]1)[179][177]160[175][165]sc(d2[170]40)[179][177]160[167]di[178]6:[137]3100
  301. 3225 [139][165]sc(d2[170]1)[179][177]160[167]di[178]4:[137]3100
  302. 3230 [139][165]sc(d2[170]40)[179][177]160[167]di[178]8:[137]3100
  303. 3235 di[178]6:[137]3100
  304. 3240 [139][165]sc(d2[170]1)[179][177]160[175][165]sc(d2[171]40)[179][177]160[167]di[178]8:[137]3100
  305. 3245 [139][165]sc(d2[170]1)[179][177]160[167]di[178]2:[137]3100
  306. 3250 [139][165]sc(d2[171]40)[179][177]160[167]di[178]6:[137]3100
  307. 3255 di[178]8:[137]3100
  308. 3260 [139][165]sc(d2[171]1)[179][177]160[175][165]sc(d2[171]40)[179][177]160[167]di[178]2:[137]3100
  309. 3265 [139][165]sc(d2[171]1)[179][177]160[167]di[178]8:[137]3100
  310. 3270 [139][165]sc(d2[171]40)[179][177]160[167]di[178]4:[137]3100
  311. 3275 di[178]2:[137]3100
  312. 3280 [139][165]sc(d2[171]1)[179][177]160[175][165]sc(d2[170]40)[179][177]160[167]di[178]4:[137]3100
  313. 3285 [139][165]sc(d2[171]1)[179][177]160[167]di[178]6:[137]3100
  314. 3290 [139][165]sc(d2[170]40)[179][177]160[167]di[178]2:[137]3100
  315. 3295 di[178]4:[137]3100
  316. 3300 [139]tf[167]3310
  317. 3305 tf[178]3:sc[178]sc[170]1:[143] trap flag
  318. 3310 [158]plt,bx,by:[153]bc$" ";
  319. 3315 bx[178]x2:by[178]y2:[158]plt,bx,by:[153]"(NULL)";:bc$[178]""
  320. 3320 [137]3900
  321. 3400 [139]tf[167]3410
  322. 3405 tf[178]3:sc[178]sc[170]1:[143] trap flag
  323. 3410 [158]plt,bx,by:[153]bc$" ";
  324. 3415 bx[178]x2:by[178]y2:[158]plt,bx,by:[153]"sys(NULL)";:bc$[178]"sys"
  325. 3420 [137]3900
  326. 3500 [139]uf[167]3520
  327. 3505 uf[178]1:[143] uneven flag, have re rolled ball off course yet?...
  328. 3510 di[178]di[170]2[172][181](2[172][187](0))[171]1
  329. 3515 [139]di[178]0[167]di[178]8
  330. 3516 [139]di[178]9[167]di[178]1
  331. 3520 [158]plt,bx,by:[153]bc$" ";
  332. 3525 bx[178]x2:by[178]y2:[158]plt,bx,by:[153]"(NULL)";:bc$[178]""
  333. 3530 [137]3900
  334. 3600 [158]plt,bx,by:[153]" ":[158]plt,x2,y2:[153]" "
  335. 3601 [158]plt,x2,y2:[153]"stop ";
  336. 3602 di[178]di[170]2[172][181](2[172][187](0))[171]1
  337. 3604 [139]di[178]0[167]di[178]8
  338. 3605 [139]di[178]9[167]di[178]1
  339. 3606 sp[178]sp[171].5:[139]sp[177]0[167]x2[178]x2[170]di(di,1):y2[178]y2[170]di(di,2):[137]3110
  340. 3610 sc[178]sc[170]1:[137]3990
  341. 3900 :
  342. 3902 [139]tf[177]0[167]tf[178]tf[171]1:[139]tf[178]0[167]3910
  343. 3905 sp[178]sp[171].3:[139]sp[177]0[167]3100
  344. 3910 sc[178]sc[170]1:[137]3030
  345. 3980 [161]x$:[139]x$[178]""[167]3980
  346. 3990 [141]22480:[130]ho:[142]:[143]*** made the hole! go to next round.
  347. 4000 :
  348. 4001 :[143]   *** end
  349. 4002 :
  350. 4005 [129]pa[178]1[164]200:[130]pa:[151]53280,2
  351. 4010 [151]53281,1:[153]"loadwait * *  m i n i a t u r e   g o l f wait * *poke"
  352. 4015 [153]:[153]:[153]:[153]
  353. 4020 [153]"   t h e   g a m e   i s   o v e r !":sd[178]400:[141]22480
  354. 4022 [141]25160
  355. 4025 [153]"on the par 27 course, you shot":[153]"a round of "sc".  that is an"
  356. 4026 [153]"average of"[181](sc[172]100[173]9)[173]100"shots per hole.":sd[178]1:[141]22480
  357. 4030 [153]
  358. 4035 [153]"       hope you enjoyed the game!":[141]25160
  359. 4040 ob$[178]" care to play again?  (y or n)":[141]25080
  360. 4045 [161]pa$:[139]pa$[178]"y"[167]sc[178]0:ho[178]1:[137]40
  361. 4050 [139]pa$[178]"n"[167]4100
  362. 4055 [137]4045
  363. 4100 sd[178]1:[151]53280,0:[151]53281,0:[153]"load"
  364. 4105 [141]25070:[141]22480:[141]25120:[153]"":[128]
  365. 17200 [153]"def   - - - h i t   a n y   k e y - - -on":[129]i[178]1[164]300:[130]
  366. 17201 [161]a$:[139]a$[179][177]""[167][153]"poke":[142]
  367. 17202 [153]"   - - - h i t   a n y   k e y - - -on":[129]i[178]1[164]300:[130]:[137]17200
  368. 18109 [143] - computer sounds.              change 'nt' in line 18117 for length.
  369. 18110 nt[178]0:sid[178]54272:[129]n[178]sid[164]sid[170]24:[151]n,0:[130]n
  370. 18113 [151]sid[170]6,240:[151]sid[170]15,18:[151]sid[170]18,16:[151]sid[170]24,5
  371. 18114 [151]sid[170]4,17:[151]sid[170]1,[194](sid[170]27):nt[178]nt[170]1
  372. 18115 [129]t[178]1[164]5:[130]t:[151]sid[170]24,15
  373. 18117 [139]nt[178]70[167]18119
  374. 18118 [137]18114
  375. 18119 [129]reg[178]sid[164]sid[170]23:[151]reg,0:[130]reg:[129]vv[178]15[164]0[169][171].1
  376. 18120 [151]sid[170]24,vv:[130]:[142]
  377. 18183 [143] - single tone. vary length by changing t in 18187
  378. 18184 [143] - vary attack/delay by changing (10) in 54277 on line 18185
  379. 18185 [129]l[178]54272[164]54276:[151]l,0:[130]:[151]54296,15:[151]54277,10
  380. 18186 [151]54278,248:[151]54273,248:[151]54273,17:[151]54272,37
  381. 18187 [151]54276,33:[129]t[178]1[164]100:[130]
  382. 18188 [151]54276,32:[142]
  383. 18234 [143] - beep.  change t for length
  384. 18236 [151]54272,12:[151]54273,36:[151]54296,15
  385. 18237 [151]54278,240:[151]54276,33:[129]t[178]1[164]50:[130]
  386. 18238 [151]54276,0:[151]54276,32:[151]54276,0
  387. 18239 [142]
  388. 18288 [143] -down sweep sound. vary length with step # in 18294 (now -3)
  389. 18290 s1[178]54272:w1[178]s1[170]4:w3[178]s1[170]18:v[178]s1[170]24:pw[178]s1[170]27:pe[178]s1[170]20
  390. 18291 [129]i[178]s1[164]pe:[151]i,0:[130]
  391. 18292 [151]w1[170]1,17:[151]w1[170]2,251:[151]w3[170]1,187:[151]w2[170]2,140
  392. 18293 [151]v,143:[151]w3,17
  393. 18294 [151]w1,17:[129]i[178]200[164]20[169][171]3:[151]s1[170]1,i:[130]
  394. 18300 [151]w1,0:[151]w3,0:[129]t[178]1[164]300:[130]:[142]
  395. 18488 la[178]54273:[143] - plink sound - vary length with first dd:vary times with ll
  396. 18489 [129]la[178]la[164]la[170]10:[151]la,0:[130]:[129]ll[178]1[164]1
  397. 18490 [151]54296,15:[151]54291,8:[151]54292,8:f1[178]54287:f2[178]54286:w[178]54290
  398. 18491 [151]f1,21:[151]f2,31:[151]w,33:[129]dd[178]1[164]500:[130]:[151]f1,32:[151]f2,195
  399. 18492 [151]w,17:[129]dd[178]1[164]100:[130]:[151]w,0:[130]ll:[142]
  400. 22460 [143]
  401. 22470 [143] - triumph sound
  402. 22480 [151]54296,15:[151]54277,1:[151]54278,248
  403. 22490 [129]no[178]20[164]60[169]10:[151]54273,no
  404. 22500 [151]54272,47:[151]54276,17
  405. 22510 [129]t[178]1[164]sd:[130]t:[130]no
  406. 22520 [129]t[178]1[164]500:[130]:[151]54276,16:[142]
  407. 25000 [151]53280,15:[151]53281,0:[153][199](142)"load":[141]25070
  408. 25010 [153]"   *  p u t t   p u t t   g o l f wait *"
  409. 25020 [153]"      instructions?     ywaites or nwaito":[141]25160
  410. 25021 [141]25120:[141]22480
  411. 25030 [161]in$:[139]in$[178]""[167]25030
  412. 25040 [139]in$[178]"y"[167][153]"load":[137]20
  413. 25050 [139]in$[178]"n"[167][153]"load":[137]30
  414. 25060 [137]25030
  415. 25070 ob$[178]"  c-64 version by bill britton"
  416. 25080 aa[178][195](ob$):[139]aa[173]2[179][177][181](aa[173]2)[167]a$[178]" "[170]ob$:[137]25080
  417. 25090 [129]v[178]1[164]aa[173]2:[153][163]19[171]v);[200](ob$,v);[201](ob$,v):[153]"on";
  418. 25100 [129]za[178]1[164]50:[130]za:[130]v:[153]:[141]25160
  419. 25110 [153]"                                     ":[141]25160
  420. 25111 [142]
  421. 25120 [129]n[178]1[164]40:[151]1023[170]n,214:[151]55295[170]n,5
  422. 25130 [151]2024[171]n,214:[151]56296[171]n,5:[130]n
  423. 25140 [129]n[178]1[164]24:[151]1024[170]39[170]40[172]n,214:[151]55296[170]39[170]40[172]n,5
  424. 25150 [151]2023[171]39[171]40[172]n,214:[151]56295[171]39[171]40[172]n,5:[130]n:[142]
  425. 25160 [129]yx[178]1[164]40:[151]646,[187](1)[172]15[170]2:[153]" ";:[130]:[153]"waitpoke":[142]
  426. 29999 [143]*****twinkle letters
  427. 30000 [153]"":t[178]0:a$[178]"  * * p l a y   a g a i n ?  * *"
  428. 30001 c[178]646:[129]i[178]0[164]5
  429. 30002 [151]c,i:[153]"on"a$:[129]d[178]1[164]50:[130]d:[130]i:t[178]t[170]1
  430. 30003 [139]t[178]3[167][137]30006
  431. 30004 [153]"on"a$
  432. 30005 [151]c,15:[137]30001
  433. 30006 [153]"pokeon"a$:[151]53281,1:[142]
  434.